home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / progsrc / jpeg5b / jpeg-5b / makefile.bcc < prev    next >
Encoding:
Makefile  |  1995-03-14  |  11.6 KB  |  418 lines
  1. (HNxHHO$B<BBBB<$<BBBB<<BBBB<$BBBBBF:0BBBBF:$BBBF:B<""AAA""AAAAA"<B@@B<" <2\A">>xDDxDNDD <` <>BB= > <BBBB< BBBBF:2L\bBBBB&AaQIECA8$>""">0@@A>@@@ b$(. b$(*
  2.     $    $    $DDDDDDD¬U¬U¬U¬U¬U¬U¬Uw▌w▌w▌w▌w▌w▌w▌°°°⌠ⁿ°°⌠⌠ⁿ⌠⌠ⁿⁿ°°°    ≈  ≈  ≈≈         °                     ≡≡≡≡≡≡≡≡≡≡≡≡≡≡       7HH7"B\DBBRL~BB@@@@@@?R~!!~?DDDD8BBBB|@@Ç>P>III>"AA""AAA"Uw<DDDD86II6"EIQ"\ @@ "AAAAA> >     hH02L2L$$<H(,$<>>>>>>>         VMODE=VIDEOMODEGET
  3.             IF WHICHVGA = 0 THEN STOP
  4.             DUMMY=RES640
  5.             SETVIEW 100, 100, 539, 379
  6.             FILLVIEW 10
  7.             WHILE INKEY$ = ""
  8.             WEND
  9.             VIDEOMODESET VMODE
  10.             END
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.                                                                          63
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.           FONTGETINFO
  35.  
  36.             PROTOTYPE
  37.  
  38.             SUB FONTGETINFO (Width%, Height%)
  39.  
  40.             INPUT
  41.  
  42.             no input parameters
  43.     WEND
  44.             MOUSEEXIT
  45.             VIDEOMODESET VMODE
  46.             END
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.                                                                          86
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.           MOUSECURSORDEFAULT
  95.  
  96.             PROTOTYPE
  97.  
  98.             SUB MOUSECURSORDEFAULT ()
  99.  
  100.             INPUT
  101.  
  102.             no input parameters
  103.  
  104.             OUTPUT
  105.  
  106.             no value returned
  107.  
  108.             USAGE
  109.  
  110.             MOUSECURSORDEFAULT defines the mouse cursor to be a small
  111.        ,K$╖┼╘╤░XQ)σ┤ö≡÷┴─┤àñT┘,╘¬àñX9╘⌠àñ\9╘UÜ╢≤`9╘4a╘d9╘UTa╘h9╘ta╘l9╘Uöa╘p9╘┤a╘t┘PT±x┴îÇ╖0▓ïα│ÅαU┤ôα╡ùα╢¢α╖úΓ╘pǺΓ╕¡αë ╚┴πì°sKÉφb<$⌡▌ë     φë φë I1φë  Eφë $YφÆë (mφë ,üφë 0$òφë á⌐φë ñ╜φë I¿╤φë ¼σφë ░∙φÆë 4
  112. ²ë ┤!²ë ╕$5²ë ╝I²ë └]²ë ⌐8q²ë <àⁿΦiǬ∙PÖÇ ¥Ç
  113. ⁿ
  114. ░╨â@%8@ΓΦá╝╤░≡cÑÅ*$
  115. ░╕≡ż≡τ╥m¿⌡ε    ╨@#µ≈$âh$âαra╨à`¥è∩Ç%Ç +─▀ TîcOî∩â°1<@  [$¿Ç¼ MMl·0ƒ Y¼─!%6a▐è ¥ì ßá+?±  P<îaTTV ╪iÇ¡≥░ `_ñ»%Çá᪠P█º»ε`éa∙É%H«┴íA%Gár∙É
  116. iw∙Éiφ`╧≥≡╤Çmⁿ▒
  117. ]ÆAáσw7░⌡∩    $·╟Ç√É&^`  ┐ $ⁿ  $■ $╒ nk$J-ÉQ1£PéBù »0αQ/Ñ4╜£░ºP≈Ñ4Ç⌡$(ª▀$@C]Æé≈└╕_SÇçÑ4=iÉ⌠ä╣<_np@Ñ45ò▒Y3ü¼Qí░.i>╠@5+┴╙É╛╙$@ #┴@«╦
  118. $╤
  119. #@Ñú4,p&e÷ü¼_ÇQºÑ4
  120. òQ  ü@;¡_áQ@e╠≥@mp!┤a╘O░√`Pñź ÇT°8ÿ!¼Åñ$½╙"q¿ PñCÇ¿α√└╥░eT"ß<p°%Pæ(╧%pδ¥/OêW0Ǽbφ φ B@[â¼8â≥µ≤(    ¿⌡%(Ç∩áTÿp+ óÜ▓0!Σ±(1±
  121. ░┤ÖÇD└D0Å╡`   $ «îO@╧1
  122. a╝╤j-0ñ│`@╖bΦaT1═⌠╝╤Σ²¼±,1öíî9lÿ28ÇÅ`Γî¿P²$,N0┴O0a╫δ≤0σú`°î╖#0δ≡└X▄1»Σî(▒¥Ç█Ñ"qá√1CÇú╟╨º Å
  123. FT Θ²î└1ÇY0    w ²à░$@AÅ`╦Φ¼╘`▄1A  }┐Ç*5 ΩSδδî`¼îaδæ¼î5 1¿⌡Ω╜⌠ ¼¥╬ü└Qî1S
  124. ╛≤î9╨iÇ,∙PU(}Ç$üÇ àÇ`σìÇ`QαÜBO$%ÿÇ╧"$Ç«Ç]É.┬\`%WÉ$  W0 ÄâO0]αG┬ur╩
  125. ░£▒
  126. Q¢ú╔Ç≡°s?`X0╘`@ µWâ@╣aá εdq`¥9?Ç&+o0µyÄΣAÅuV(7P╬±@IdQ╕@Å┤@;Ç▓?Çò│CÇ┤╟╨╡KÇÄ30ⁿφ° ó╬ì+]Ä╦≡     Mö╝σ ²y5<!└▀óâ╝É3~mp    $<╛≤9Æ-2ⁿ≡@T,╞Σa,)Pæ└¥#¼╪Q┤S(¼@Aîa
  127. ≡╤@Ö²±⌠KëD─┴▒▀0╨Ñ$╩-0 ╨ê*╙▓edm`î=3Kß-10è=≥≤²└£mîjy ÿe²ⁿ╨i╕e▓ΣmαÖ╢C%Ç*ê*0 EátQZ`mÄLP%    °üⁿªüNQ∙  T¿<qtWΩc z░ÅÇñΩçǪçÇ«;└<┐á¼¥. á?<Σscî)áí := 0;
  128.       end;
  129.     end;
  130.   end;
  131.   WaitToGo;
  132. end; { UserLineStylePlay }
  133.  
  134.  
  135. procedure SayGoodbye;
  136. { Say goodbye and then exit the program }
  137. var
  138.   ViewInfo : ViewPortType;
  139. begin
  140.   MainWindow('');
  141.   GetViewSettings(ViewInfo);
  142.   SetTextStyle(TriplexFont, HorizDir, 4);
  143.   SetTextJustify(CenterText, CenterText);
  144.   with ViewInfo do
  145.     OutTextXY((x2-x1) div 2, (y2-y1) div 2, 'That''s all folks!');
  146.   StatusLine('Press any key to quit...');
  147.   repeat until KeyPressed;
  148. end; { SayGoodbye }
  149.  
  150.  
  151. PROCEDURE SelectMode;
  152. VAR
  153.     choice1,choice2     : CHAR;
  154.    xsize,ysize            : WORD;
  155. BEGIN
  156.     (* Let's select a mode *)
  157.     ClrScr;
  158.     WriteLn('VESADEMO:');
  159.     WriteLn('1. 256 colors');
  160.     WriteLn('2. 32768 colors');
  161.     WriteLn('3. 65536 colors');
  162.     WriteLn('4. 16777216 colors');
  163.     WriteLn('Q uit');
  164.     WriteLn;
  165.     Write('Your choice: ');
  166.     REPEAT
  167.         ReadLn(choice1);
  168.       IF choice1 <> '1' THEN BEGIN
  169.           WriteLn('Sorry !');
  170.          WriteLn('This demo wasn''t written for more as 256 colors !');
  171.          WriteLn('You would only get a limited impression of the Hi-& TrueColor modes...');
  172.          WriteLn('Switching to 256 colors.');
  173.          choice1 := '1';
  174.       END;
  175.     UNTIL choice1 IN ['1'..'4','q'];
  176.     IF choice1 = 'q' THEN Halt;
  177.  
  178.     WriteLn;
  179.     WriteLn;
  180.     WriteLn('a. 320x200');
  181.     WriteLn('b. 640x480');
  182.     WriteLn('c. 800x600');
  183.     WriteLn('d. 1024x768');
  184.     WriteLn('e. 1280x1024');
  185.     WriteLn('Q uit');
  186.     WriteLn;
  187.     Write('Your choice: ');
  188.     REPEAT
  189.         ReadLn(choice2);
  190.     UNTIL choice2 IN ['a'..'e','q'];
  191.     IF choice2 = 'q' THEN Halt;
  192.  
  193.     CASE choice2 OF
  194.         'a' : BEGIN
  195.             xsize := 320;
  196.             ysize := 200;
  197.         END;
  198.         'b' : BEGIN
  199.             xsize := 640;
  200.             ysize := 480;
  201.         END;
  202.         'c' : BEGIN
  203.             xsize := 800;
  204.             ysize := 600;
  205.         END;
  206.         'd' : BEGIN
  207.             xsize := 1024;
  208.             ysize := 768;
  209.         END;
  210.         'e' : BEGIN
  211.             xsize := 1280;
  212.             ysize := 1024;
  213.         END;
  214.     END;
  215.     CASE choice1 OF
  216.         '1' : mode := FindVesaMode(xsize,ysize,8);
  217.         '2' : mode := FindVesaMode(xsize,ysize,15);
  218.         '3' : mode := FindVesaMode(xsize,ysize,16);
  219.         '4' : mode := FindVesaMode(xsize,ysize,24);
  220.     END;
  221.     IF mode = 0 THEN BEGIN
  222.         WriteLn('No such mode could be found !');
  223.         WriteLn('Switching to to 320x200.');
  224.         ReadKey;
  225.         mode := V320x200x256;
  226.     END;
  227. END;
  228.  
  229. begin { program body }
  230.   SelectMode;
  231.   Initialize;
  232.   ReportStatus;
  233.  
  234. {  AspectRatioPlay; }
  235.   FillEllipsePlay;
  236.   SectorPlay;
  237.   WriteModePlay;
  238.  
  239.   ColorPlay;
  240.   { PalettePlay only intended to work on these drivers: }
  241.   if (GraphDriver = EGA) or
  242.       (GraphDriver = EGA64) or
  243.       (GraphDriver = VGA) then
  244.      PalettePlay;
  245.   PutPixelPlay;
  246. {  PutImagePlay; }
  247.   RandBarPlay;
  248.   BarPlay;
  249.   Bar3DPlay;
  250.   ArcPlay;
  251.   CirclePlay;
  252.   PiePlay;
  253.   LineToPlay;
  254.   LineRelPlay;
  255. {  LineStylePlay; }
  256. {  UserLineStylePlay; }
  257.   TextDump;
  258.   TextPlay;
  259.   CrtModePlay;
  260.   FillStylePlay;
  261.   FillPatternPlay;
  262.   PolyPlay;
  263.   SayGoodbye;
  264. {  CloseGraph; }
  265.   CloseVesa;
  266. end.
  267. ***************************************************
  268.     '* SHOW D2ROTATE (ABOUT THE ORIGIN)
  269.     '****************************************************************∞╥≤c≤*φè#^│v/╒:j═φ0t+l▓ô"¬"g└≡?%ªêΣ│H╫½╫╜├¿U'╒⌐⌡ ßV?╩
  270. ¬ujOΦçEZ1∞▐! ▄B╛Σ8║æ]1GlNÜ┐q▌▓;ô$ΦzE<cª*bEô#ä╧ñÅ"∩─LrdaÖ ╠º╫a^¥£å╬1~)@ëÖMδ╫0═6DäFê¬Çv┼ß╨kæpτ╪É)}ª 1w3╤╧ü⌡¥╓h▓╣≈ïÅaÑ[TⁿHqªÉ╝DKÄ─Y-∞tT╤Θ╨º╟╪.*ÇI9lΦ≈{πτcσ$τπßoFr╪╨∩┼╞╟;O2■e²LÜ4^N|╪½ÅO?╔°FOz`╟╟╟'<>>π$πΘù6·
  271. Xgî╖│°oîδπGƒd╝▀░?■╪╔_9L ⌡ôⁿq'æO▀ƒn4╔▀╚▄┼3pτ.òO°·}÷╕ⁿ±'æO?ít│!√8ßÑ≤/┐╣p┼≥┘E╦Vox╕cΦé5╟╚º╙$?√$≥ΘZεsî≡åìΓpKù¢ïß X╥ 9╞≈\µk┤O¥_ 5Üö\≤éÄ┌╤A[╤ÿáï┼éNⁿÅu16    g,%hc╙╨cD╨Vï┘R¢öKñR;8εáΣ╢╪ós╤π╡á└èxgzPÄMú╫yαºÉ+σJ¢i+▓â3╥    ═Ñ╙î^ºG▓█πérφçs %#(╗⌠?┼%u8≡6+QÉ))ò)Afw≈╣╪)B&4░åLXV:δät@Å.;5Φf╢Ät┐ΣJ╫─U8úÇ╟éö£╕p╔┴⌠vg╨╬╥é÷╪╣┬ΓI.ç≡^v╤ZΦÇ& ╒┌6ñô6XßNè╡╬E₧Ñ
  272. kIº╠▄A+╣╥éb²tæ-Y¡½αÑa═uuîÇ╢αêvhuª╡SÅ┤vèùú¥F;p<d⌐/F─d█éT%▓KΦû=q■öI┐ ┐╠6S$▒÷╚ENΩ¥Fû9╔┌R'╝ ╧φ└?g┬j▓0═/b╖₧─mûé╢┌»ÿÄë/·<éò■░╤╟╢├Xσ:╥P3Θ"╬Læsφ░┌öSö!╗¿*mN£WΣÇ£┤~#╗ææ≥RΩóh:à▌.æ≈╕▌v£äàd▒à╒├=░╖π║$howeg*╬    6ù▄ƒô╕φ░Ö╢qΘD>(w@úKεHÆ╛öúΣU
  273. éÜR╔╤W▄èê 2M%ó.▓SNÖA1ùJE╢║l]▓¿>\%└Å4ßO▄£â⌐& ê/)8vSP▀▓ôⁿææ√ü√ÑÄa⌠â╚4S╓╟P- ?Σá╕▓Næ*q╡UΘ▓≈^ñ·I.rúR&$Y^╚%è≡B┌≈Ceat
  274.     Color := RandColor;
  275.     SetColor(Color);
  276.     SetFillStyle(Random(CloseDotFill)+1, Color);
  277.     Bar3D(Random(MaxWidth), Random(MaxHeight),
  278.           Random(MaxWidth), Random(MaxHeight), 0, TopOff);
  279.   until KeyPressed;
  280.   WaitToGo;
  281. end; { RandBarPlay }
  282.  
  283. procedure ArcPlay;
  284. { Draw random arcs on the screen }
  285. var
  286.   MaxRadius : word;
  287.   EndAngle : word;
  288.   ArcInfo : ArcCoordsType;
  289. begin
  290.   MainWindow('Arc / GetArcCoords demonstration');
  291.   StatusLine('Esc aborts or press a key');
  292.   MaxRadius := MaxY div 10;
  293.   repeat
  294.     SetColor(RandColor);
  295.     EndAngle := Random(360);
  296.     SetLineStyle(SolidLn, 0, NormWidth);
  297.     Arc(Random(MaxX), Random(MaxY), Random(EndAngle), EndAngle, Random(MaxRadius));
  298.     GetArcCoords(ArcInfo);
  299.     with ArcInfo do
  300.     begin
  301.       Line(X, Y, XStart, YStart);
  302.       Line(X, Y, Xend, Yend);
  303.     end;
  304.   until KeyPressed;
  305.   WaitToGo;
  306. end; { ArcPlay }
  307.  
  308. procedure PutPixelPlay;
  309. { Demonstrate the PutPixel and GetPixel commands }
  310. const
  311.   Seed   = 1962; { A seed for the random number generator }
  312.   NumPts = 2000; { The number of pixels plotted }
  313.   Esc    = #27;
  314. var
  315.   I : word;
  316.   X, Y, Color : word;
  317.   XMax, YMax  : integer;
  318.   ViewInfo    : ViewPortType;
  319. begin
  320.   MainWindow('PutPixel / GetPixel demonstration');
  321.   StatusLine('Esc aborts or press a key...');
  322.  
  323.   GetViewSettings(ViewInfo);
  324.   with ViewInfo do
  325.   begin
  326.     XMax := (x2-x1-1);
  327.     YMax := (y2-y1-1);
  328.   end;
  329.  
  330.   while not KeyPressed do
  331.   begin
  332.     { Plot random pixels }
  333.     RandSeed := Seed;
  334.     I := 0;
  335.     while (not KeyPressed) and (I < NumPts) do
  336.     begin
  337.       Inc(I);
  338.         PutPixel(Random(XMax)+1, Random(YMax)+1, RandColor);
  339.     end;
  340.  
  341.     { Erase pixels }
  342.     RandSeed := Seed;
  343.     I := 0;
  344.     while (not KeyPressed) and (I < NumPts) do
  345.     begin
  346.       Inc(I);
  347.       X := Random(XMax)+1;
  348.       Y := Random(YMax)+1;
  349.       Color := GetPixel(X, Y);
  350.         if Color = RandColor then
  351.           PutPixel(X, Y, 0);
  352.      end;
  353.   end;
  354.   WaitToGo;
  355. end; { PutPixelPlay }
  356.  
  357. procedure PutImagePlay;
  358. { Demonstrate the GetImage and PutImage commands }
  359.  
  360. const
  361.   r  = 20;
  362.   StartX = 100;
  363.   StartY = 50;
  364.  
  365. var
  366.   CurPort : ViewPortType;
  367.  
  368. procedure MoveSaucer(var X, Y : integer; Width, Height : integer);
  369. var
  370.   Step : integer;
  371. begin
  372.   Step := Random(2*r);
  373.   if Odd(Step) then
  374.     Step := -Step;
  375.   X := X + Step;
  376.   Step := Random(r);
  377.   if Odd(Step) then
  378.     Step := -Step;
  379.   Y := Y + Step;
  380.  
  381.   { Make saucer bounce off viewport walls }
  382.   with CurPort do
  383.   begin
  384.     if (x1 + X + Width - 1 > x2) then
  385.       X := x2-x1 - Width + 1
  386.     else
  387.       if (X < 0) then
  388.         X := 0;
  389.     if (y1 + Y + Height - 1 > y2) then
  390.       Y := y2-y1 - Height + 1
  391.     else
  392.       if (Y < 0) then
  393.         Y := 0;
  394.   end;
  395. end; { MoveSaucer }
  396.  
  397. var
  398.   Pausetime : word;
  399.   Saucer    : pointer;
  400.   X, Y      : integer;
  401.   ulx, uly  : word;
  402.   lrx, lry  : word;
  403.   Size      : word;
  404.   I         : word;
  405. begin
  406.   ClearDevice;
  407.   FullPort;
  408.  
  409.   { PaintScreen }
  410.   ClearDevice;
  411.   MainWindow('GetImage / PutImage Demonstration');
  412.   StatusLine('Esc aborts or press a key...');
  413.   GetViewSettings(CurPort);
  414.  
  415.   { DrawSaucer }
  416.   Ellipse(StartX, StartY, 0, 360, r, (r div 3)+2);
  417.   Ellipse(StartX, StartY-4, 190, 357, r, r div 3);
  418.   Line(StartX+7, StartY-6, StartX+10, StartY-12);
  419.   Circle(StartX+10, StartY-12, 2);
  420.   Line(StartX-7, StartY-6, StartX-10, StartY-12);
  421.   Circle(StartX-10, StartY-12, 2);
  422.   SetFillStyle(SolidFill, MaxColor);
  423.   FloodFill(StartX+1, StartY+4, GetColor);
  424.  
  425.   { ReadSaucerImage }
  426.   ulx := StartX-(r+1);
  427.   uly := StartY-14;
  428.   lrx := StartX+(r+1);
  429.   lry := StartY+(r div 3)+3;
  430.  
  431.   Size := ImageSize(ulx, uly, lrx, lry);